home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / docs / mags / amique22.lha / AmigaQu饕ec / Installez-AmigaQu饕ec < prev    next >
Text File  |  1995-06-01  |  2KB  |  85 lines
  1.  
  2. ;;
  3. ;; $Filename: Installez-AmigaQuébec $
  4. ;; $Date: 1995/04/29 16:38:00 $
  5. ;; $Revision: 1.0 $
  6. ;; $Author: Yannick Koehler $
  7. ;;
  8.  
  9. (set is_update 0)
  10. (set @user-level 1)     ; force to use average mode
  11. (complete 0)
  12.  
  13. (set kickstart (getenv "KickStart"))
  14.  
  15. (set aq_dest
  16.         (askdir
  17.                 (prompt "Dans quel disque ou tiroir voulez-vous "
  18.                 "que le tiroir Amiga Québec soit créé?")
  19.                 (help "Le programme d'installation va créer un tiroir appellé "
  20.                           "\"AmigaQuébec\" dans le disque ou le tiroir choisi.  Tous "
  21.                           "les fichiers et tiroirs d'Amiga Québec seront placés dans "
  22.                           "ce nouveau tiroir.")
  23.                 (default @default-dest)
  24.         )
  25. )
  26.  
  27. (complete 10)
  28.  
  29. (if (exists (tackon aq_dest "AmigaQuébec"))
  30.         (set is_update 1)
  31.         (makedir (tackon aq_dest "AmigaQuébec") (infos))
  32. )
  33. (set aq_dest (tackon aq_dest "AmigaQuébec"))
  34.  
  35. (complete 20)
  36.  
  37. (set @default-dest aq_dest)
  38. (set disk_space (getdiskspace aq_dest))
  39.  
  40. (set disk_space_needed 70000)
  41.  
  42. (complete 30)
  43.  
  44. (if (AND (< disk_space disk_space_needed) (NOT is_update))
  45.         (
  46.                 (set answer1
  47.                         (askbool
  48.                                 (prompt "Il n'y a pas assez d'espace libre pour installer "
  49.                                                 "\"Amiga Québec\" sur ce disque. "
  50.                                                 "Voulez-vous continuer?")
  51.                                 (help "Amiga Québec nécessite approximativement 70 kilooctets "
  52.                                           "d'espace libre pour que l'installation soit complète.")
  53.                         )
  54.                 )
  55.                 (if (NOT answer1)
  56.                         (abort "Installation d'Amiga Québec annulé.  Manque d'espace "
  57.                                    "libre sur le disque \""
  58.                                    (getdevice @default-dest)
  59.                                    "\"."
  60.                         )
  61.                 )
  62.         )
  63. )
  64.  
  65. (complete 70)
  66.  
  67. (working "Installation des fichiers relatifs à Amiga Québec.")
  68. (copyfiles
  69.         (pattern "ami#?")
  70.         (source "")
  71.         (dest aq_dest)
  72.         (help @copyfiles-help)
  73. )
  74. (copyfiles
  75.         (source "p-view")
  76.         (dest "C:")
  77.         (help @copyfiles-help)
  78. )
  79.  
  80. (complete 99)
  81. (run "p-view " (tackon aq_dest "AmigaQuébec.iff"))
  82.  
  83. (complete 100)
  84. (exit)
  85.